<%
Dim SistemaNivel, SistemaURL, URL, SeccionNivel, SeccionURL


URL = Request.ServerVariables("PATH_INFO")
If InStr(2, URL, "/") <> 0 And Not PasarNivel Then
	If Left(URL, InStr(2, URL, "/")-1) = "/sistemas" Then ' SI ESTA EN SISTEMAS
		
		' PERMISO A SISTEMA
		SistemaURL = Left(URL, InStr(11, URL, "/")-1)
		'Conectar dbSOL
		Conectar_sol
			SQL = "SELECT Nivel FROM Sistemas WHERE URL LIKE '" & SistemaURL & "'"
			Set Tabla = Conexion.Execute(SQL)
			If Not Tabla.EOF Then
				SistemaNivel = Tabla("Nivel")
			Else
				SistemaNivel = 0
			End If
			Tabla.Close
		Desconectar
		If (SistemaNivel And UsrNivel) <> UsrNivel Then Response.Redirect("/ppal.asp")
	
		'PERMISO A SECCION DE GAE
		If SistemaURL = "/sistemas/gae" Then
			SeccionURL = Right(URL, Len(URL) - InStrRev(URL, "/"))
			'Response.Write(SeccionURL)
			Conectar_gae
				SQL = "SELECT Nivel FROM Secciones WHERE Archivo LIKE '" & SeccionURL & "'"
				Set Tabla = Conexion.Execute(SQL)
				If Not Tabla.EOF Then
					SeccionNivel = Tabla("Nivel")
				Else
					SeccionNivel = 0
				End If
				Tabla.Close
			Desconectar
			If SeccionNivel <> 0 And (SeccionNivel And UsrNivel) <> UsrNivel Then Response.Redirect("/ppal.asp")
		End If
		
	End If
End If

%>